home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / ACC_CPX / MABOOG / BOOTPIC.Q < prev    next >
Encoding:
Text File  |  1989-06-16  |  1.4 KB  |  49 lines
  1. ;--------------------------------------
  2. ;      Bootsektor-Pictureleser
  3. ;      Monochromeversion
  4. ;      Version 1.1mono
  5. ;      (c)1989 by Martin Möller
  6. ;                 Klopstockweg 23
  7. ;                 4440 Rheine
  8. ;--------------------------------------
  9. ; Liest Bild PICTURE.PIC von Disk A:
  10. ; Bild liegt im Screenformat vor
  11. ;--------------------------------------
  12.        move.w #$00,$482   ; kein Command.Prg laden
  13.        move.w #$04,-(sp)  ; getrez
  14.        trap #14           ; do it!
  15.        addq.l #2,sp
  16.        cmp.w #2,D0        ; if rez=high
  17.        bne.s error        ; nein, dann error!
  18.        move.w #2,-(sp)    ; read/write
  19.        pea fname          ; A:\PICTURE.PIC
  20.        move.w #$3D,-(sp)  ; Fopen
  21.        trap #1
  22.        addq.l #8,sp
  23.        tst.w D0
  24.        bmi error
  25.        move.w d0,d7       ; Handle nach D7
  26.        move.w #$02,-(sp)  ; Physbase
  27.        trap #14
  28.        addq.l #2,sp
  29.        move.l D0,-(sp)    ; Physbase
  30.        move.l #32000,-(sp) ; Bilddaten
  31.        move.w d7,-(sp)    ; Handle
  32.        move.w #$3f,-(sp)  ; Fread
  33.        trap #1
  34.        add.l #12,sp
  35.        move.w d7,-(sp)    ; Handle
  36.        move.w #$3E,-(sp)  ; Fclose
  37.        trap #1
  38.        addq.l #4,sp
  39.        move.w #2,-(sp)    ;'con:'
  40.        move.w #2,-(sp)    ; Bconin
  41.        trap #13
  42.        addq.l #4,sp
  43. error: clr.l D0           ; all right!
  44.        rts                ; return if you want!
  45. hndl:  dc.w $0000
  46. fname: dc.b "A:\picture.pic",$00
  47.        end
  48.